home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 July
/
1984-07.d64
/
ultrafont loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
26 lines
100 ifa=1then300
120 print "[147] now loading ultrafont+ "
130 printtab(15)"commands:"
135 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
140 print"[221]f[146]:fix character"tab(19)"[221]l[146]:load [221]"
150 print"[221]m[146]:mirror"tab(19)"[221]r[146]:rotate [221]"
160 print"[221]s[146]:save"tab(19)"[221]v[146]:cursor velocity[221]"
165 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
167 print" t[146]:type mode. use run/stop to exit"
170 printtab(7)"crsr keys:move small cursor"
180 print"f1[146]:scroll down"tab(19)"f2[146]:scroll up"
190 print"f3[146]:scroll right"tab(19)"f4[146]:scroll left"
200 print"f5[146]:multicolor"tab(19)"f6[146]:normal"
210 print"f7[146]:memorize char"tab(19)"f8[146]:recall char"
220 print"1-4:color"tab(19)"shift[146] 1-4:setcolor"
230 print"home:top left"tab(19)"clr:erase char."
240 print"ctrl[146]-r:reverse character"
245 print"ctrl[146]-d:make data statements"
250 print"shift[146]-run/stop[146]:re-run ultrafont+"
252 print"ctrl[146]-x:exit ultrafont+"
253 print"ctrl[146]-_:copydown to rvs";
260 a=1:load"ultrafont.obj",8,1
300 a$="[147]sys49152"+chr$(13):poke198,len(a$)
310 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next
320 new